home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / Newswatcher 2.0b22 / NW Source / Source / prefs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-07  |  44.4 KB  |  1,532 lines  |  [TEXT/MMCC]
  1. /*----------------------------------------------------------------------------
  2.  
  3.     prefs.c
  4.  
  5.     This module handles locating, reading, and writing the prefs file, and
  6.     initialization of the preferences if no prefs file exists or an old
  7.     version is encountered.
  8.     
  9.     Copyright © 1994, Northwestern University.
  10.  
  11. ----------------------------------------------------------------------------*/
  12.  
  13. #include <Packages.h>
  14. #include <Folders.h>
  15. #include <string.h>
  16. #include <stdio.h>
  17. #include <Aliases.h>
  18. #include <Processes.h>
  19. #include <AppleEvents.h>
  20.  
  21. #include "glob.h"
  22. #include "prefs.h"
  23. #include "dialog.h"
  24. #include "full.h"
  25. #include "newswatcher.h"
  26. #include "drawutil.h"
  27. #include "strutil.h"
  28. #include "memutil.h"
  29. #include "cache.h"
  30. #include "apputil.h"
  31. #include "wind.h"
  32. #include "fileutil.h"
  33. #include "resutil.h"
  34. #include "menus.h"
  35. #include "sfutil.h"
  36. #include "url.h"
  37. #include "ic.h"
  38. #include "print.h"
  39.  
  40.  
  41.  
  42. #define kNewUserDlg            158            /* New user dialog */
  43. #define kNewUserPrivateItem    1
  44. #define    kNewUserSharedItem    2
  45. #define kNewUserLabItem        3
  46. #define kNewUserQuitItem    4
  47.  
  48. #define kGetFloppyDlg                        159            /* Get floppy dialog */
  49. #define kGetFloppyCancelItem                1
  50.  
  51. #define kEraseFloppyDlg                        160            /* Erase floppy dialog */
  52. #define kEraseFloppyCancelItem                2
  53.  
  54. #define kWaitEraseDlg                        161            /* Wait for floppy erase dialog */
  55.  
  56. #define kServerDlg            132            /* Server dialog */
  57. #define kNewsServer            6
  58. #define kMailServer            8
  59.  
  60. #define kPersonalDlg        138            /* Personal info dialog */
  61. #define kFullName            6
  62. #define kOrganization        8
  63. #define kAddress            10
  64.  
  65. #define kNew20UserAlert        146
  66.  
  67. #define kSavedMsgDefaultFolderAliasID        128        /* 'alis' resource id for saved message
  68.                                                        default folder alias */
  69. #define kSavedArtDefaultFolderAliasID        129        /* 'alis' resource id for saved article
  70.                                                        default folder alias */
  71. #define ksavedBinDefaultFolderAliasID        130        /* 'alis' resource id for extracting
  72.                                                        binaries download folder alias */
  73. #define ksavedUGLDefaultFolderAliasID        131        /* 'alis' resource id for saved user
  74.                                                         group list folder alias */
  75.  
  76.  
  77.  
  78. static AliasHandle gPrefsAlias = nil;    /* handle to alias to prefs file, or
  79.                                            nil if prefs file not found */
  80. static Boolean gPrefsFileWasOldVersion = false;
  81.                                         /* true if prefs file was old version */
  82. static Str255 gNewsServerAtStartup;        /* news server address at startup */
  83. static Boolean gDummyPrefsFile = false;    /* true if dummy prefs file found */
  84. static Boolean gDummyPrefsLabFile = false;    /* true if dummy prefs file contains "lab" */
  85. static Boolean gFloppyWasFormatted;        /* true if floppy was formatted on insertion */
  86.  
  87.  
  88.  
  89. /*----------------------------------------------------------------------------
  90.     MakeDefaultFolderAlias 
  91.     
  92.     Initialize the alias for a default folder preference to the desktop
  93.     folder on the startup volume.
  94.     
  95.     Entry:    *alias = handle to previous alias if any, else nil.
  96.             
  97.     Exit:    *alias = handle to new alias.
  98. ----------------------------------------------------------------------------*/
  99.  
  100. static void MakeDefaultFolderAlias (AliasHandle *alias)
  101. {
  102.     OSErr err = noErr;
  103.     FSSpec fSpec;
  104.     CInfoPBRec pBlock;
  105.  
  106.     if (*alias != nil) {
  107.         MyDisposeHandle(*alias);
  108.         *alias = nil;
  109.     }
  110.     err = FindFolder(kOnSystemDisk, kDesktopFolderType, false,
  111.         &pBlock.dirInfo.ioVRefNum, &pBlock.dirInfo.ioDrDirID);
  112.     if (err != noErr) return;
  113.     pBlock.dirInfo.ioNamePtr = fSpec.name;
  114.     pBlock.dirInfo.ioFDirIndex = -1;
  115.     err = PBGetCatInfoSync(&pBlock);
  116.     if (err != noErr) return;
  117.     fSpec.vRefNum = pBlock.dirInfo.ioVRefNum;
  118.     fSpec.parID = pBlock.dirInfo.ioDrParID;
  119.     NewAlias(nil, &fSpec, alias);
  120. }
  121.  
  122.  
  123.  
  124. /*----------------------------------------------------------------------------
  125.     GetFloppyDialogFilter
  126.     
  127.     Filter proc for the get floppy dialog.
  128.         
  129.     Entry:    dlg = pointer to dialog.
  130.             ev = pointer to event record.
  131.             
  132.     Exit:    function result = true if event handled and item hit.
  133.             *itemHit = item number of item hit.
  134.             ev = pointer to possibly modified event record.
  135.             
  136.     When a floppy is inserted, *itemHit is set to the negative of the drive
  137.     number of the inserted floppy, and the function returns true. In addition,
  138.     the global variable gFloppyWasFormatted is set to true if the floppy was
  139.     formatted.
  140. ----------------------------------------------------------------------------*/
  141.  
  142. static pascal Boolean GetFloppyDialogFilter (DialogPtr dlg, EventRecord *ev, 
  143.     short *itemHit)
  144. {
  145.     Point thisPoint;
  146.     OSErr err = noErr;
  147.  
  148.     if (ev->what == diskEvt) {
  149.         if ((ev->message & 0xffff0000) != 0) {
  150.             DILoad();
  151.             SetPt(&thisPoint, 120, 120);
  152.             err = DIBadMount(thisPoint, ev->message);
  153.             DIUnload();
  154.             if (err != noErr) return err;
  155.             gFloppyWasFormatted = true;
  156.         }
  157.         *itemHit = -(ev->message & 0xffff);
  158.         return true;
  159.     }
  160.     return DialogFilter(dlg, ev, itemHit);
  161. }
  162.  
  163.  
  164.  
  165. /*----------------------------------------------------------------------------
  166.     DoGetFloppyDialog
  167.     
  168.     Present the get floppy dialog.
  169.     
  170.     Exit:    function result = error code.
  171.             *vRefNum = vol ref num of inserted floppy.
  172.             name = vol name.
  173. ----------------------------------------------------------------------------*/
  174.  
  175. static OSErr DoGetFloppyDialog (short *vRefNum, StringPtr name)
  176. {
  177.     DialogPtr dlg = nil;
  178.     short item, drvNum;
  179.     long freeBytes;
  180.     HParamBlockRec pBlock;
  181.     OSErr err = noErr;
  182.  
  183.     UnmountVol(nil, 1);
  184.     Eject(nil, 1);
  185.     UnmountVol(nil, 2);
  186.     Eject(nil, 2);
  187.     
  188.     while (true) {
  189.         gFloppyWasFormatted = false;
  190.         err = MyGetNewDialog(kGetFloppyDlg, 0, kGetFloppyCancelItem, &dlg);
  191.         if (err != noErr) return err;
  192.         MyMovableModalDialog(dlg, GetFloppyDialogFilter, &item);
  193.         err = DoClose(dlg);
  194.         if (err != noErr) return err;
  195.         if (item == kGetFloppyCancelItem) return userCanceledErr;
  196.         drvNum = -item;
  197.         err = GetVInfo(drvNum, name, vRefNum, &freeBytes);
  198.         if (err != noErr) return err;
  199.         pBlock.volumeParam.ioNamePtr = name;
  200.         pBlock.volumeParam.ioVRefNum = drvNum;
  201.         pBlock.volumeParam.ioVolIndex = 0;
  202.         err = PBHGetVInfoSync(&pBlock);
  203.         if (err != noErr) return err;
  204.         if ((pBlock.volumeParam.ioVAtrb >> 7) & 1) {
  205.             UnmountVol(nil, drvNum);
  206.             Eject(nil, drvNum);
  207.             ErrorMessageNumber(kStrFloppyLocked);
  208.             continue;
  209.         }
  210.         if (!gFloppyWasFormatted) {
  211.             err = MyGetNewDialog(kEraseFloppyDlg, kEraseFloppyCancelItem,
  212.                 kEraseFloppyCancelItem, &dlg);
  213.             ParamText(name, "\p", "\p", "\p");
  214.             if (err != noErr) return err;
  215.             MyMovableModalDialog(dlg, DialogFilter, &item);
  216.             err = DoClose(dlg);
  217.             if (err != noErr) return err;
  218.             if (item == kEraseFloppyCancelItem) {
  219.                 UnmountVol(nil, drvNum);
  220.                 Eject(nil, drvNum);
  221.                 continue;
  222.             }
  223.             err = MyGetNewDialog(kWaitEraseDlg, 0, 0, &dlg);
  224.             if (err != noErr) return err;
  225.             SetCursor(&gWatchCurs);
  226.             MyShowWindow(dlg);
  227.             HandleUpdate(dlg);
  228.             err = UnmountVol(nil, drvNum);
  229.             if (err == noErr) err = DIFormat(drvNum);
  230.             if (err == noErr) err = DIVerify(drvNum);
  231.             if (err == noErr) err = DIZero(drvNum, name);
  232.             DoClose(dlg);
  233.             SetCursor(&qd.arrow);
  234.             FlushEvents(everyEvent,0);
  235.             if (err != noErr) {
  236.                 UnmountVol(nil, drvNum);
  237.                 Eject(nil, drvNum);
  238.                 ErrorMessageNumber(kStrFloppyEraseFailed);
  239.                 continue;
  240.             }
  241.         }
  242.         break;
  243.     }
  244.  
  245.     return noErr;
  246. }
  247.  
  248.  
  249.  
  250. /*----------------------------------------------------------------------------
  251.     CreateSharedOrLabPrefsFile
  252.     
  253.     Create the initial prefs file in a personal NW folder or on a lab floppy.
  254.     
  255.     Entry:    fSpec = pointer to file spec for personal NW folder or floppy disk.
  256.             dirID = directory id of personal NW folder or floppy disk.
  257.     
  258.     Exit:    function result = error code.
  259.             *nwFolderAlias = Handle to alias to personal NW folder or floppy disk.
  260.             gPrefsAlias = Handle to alias to prefs file.
  261. ----------------------------------------------------------------------------*/
  262.  
  263. static OSErr CreateSharedOrLabPrefsFile (FSSpec *fSpec, long dirID,
  264.     AliasHandle *nwFolderAlias)
  265. {
  266.     FSSpec prefs;
  267.     OSErr err = noErr;
  268.  
  269.     err = NewAlias(nil, fSpec, nwFolderAlias);
  270.     if (err != noErr) return err;
  271.     prefs.vRefNum = fSpec->vRefNum;
  272.     prefs.parID = dirID;
  273.     GetPString(kStrPrefsFileName, prefs.name);
  274.     err = MyFSpCreateResFile(&prefs, kNewsWatcherSignature, 
  275.         kPrefsFileType, smSystemScript);
  276.     if (err != noErr) return err;
  277.     return NewAlias(nil, &prefs, &gPrefsAlias);
  278. }
  279.  
  280.  
  281.  
  282. /*----------------------------------------------------------------------------
  283.     DoNewUserDialog
  284.     
  285.     Present the new user dialog.
  286.     
  287.     Exit:    function result = error code.
  288.             *nwFolderAlias = nil if private Mac, else handle to alias to 
  289.                 personal NW folder or personal NW floppy disk.
  290. ----------------------------------------------------------------------------*/
  291.  
  292. static OSErr DoNewUserDialog (AliasHandle *nwFolderAlias)
  293. {
  294.     DialogPtr dlg = nil;
  295.     short item;
  296.     StandardFileReply reply;
  297.     Str255 string;
  298.     AliasHandle alias;
  299.     long dirID;
  300.     FSSpec fSpec;
  301.     OSErr err = noErr;
  302.  
  303.     while (true) {
  304.     
  305.         err = MyGetNewDialog(kNewUserDlg, 0, 0, &dlg);
  306.         if (err != noErr) return err;
  307.         SetItemKeyEquivalent(dlg, kNewUserPrivateItem, 'P');
  308.         SetItemKeyEquivalent(dlg, kNewUserSharedItem, 'S');
  309.         SetItemKeyEquivalent(dlg, kNewUserLabItem, 'L');
  310.         SetItemKeyEquivalent(dlg, kNewUserQuitItem, 'Q');
  311.         if (gDummyPrefsFile) DlgEnableItem(dlg, kNewUserPrivateItem, false);
  312.         if (gDummyPrefsLabFile) DlgEnableItem(dlg, kNewUserSharedItem, false);
  313.         MyMovableModalDialog(dlg, DialogFilter, &item);
  314.         err = DoClose(dlg);
  315.         if (err != noErr) return err;
  316.     
  317.         switch (item) {
  318.             case kNewUserPrivateItem:
  319.                 *nwFolderAlias = nil;
  320.                 return noErr;
  321.             case kNewUserSharedItem:
  322.                 GetPString(kStrPersonalNWFolder, string);
  323.                 alias = nil;
  324.                 MakeDefaultFolderAlias(&alias);
  325.                 MyStandardPutFile(string, "\p", &reply, alias);
  326.                 MyDisposeHandle(alias);
  327.                 alias = nil;
  328.                 if (!reply.sfGood) break;
  329.                 err = FSpDirCreate(&reply.sfFile, reply.sfScript, &dirID);
  330.                 if (err != noErr) return err;
  331.                 return CreateSharedOrLabPrefsFile(&reply.sfFile, dirID, nwFolderAlias);
  332.             case kNewUserLabItem:
  333.                 err = DoGetFloppyDialog(&fSpec.vRefNum, fSpec.name);
  334.                 if (err == userCanceledErr) break;
  335.                 if (err != noErr) return err;
  336.                 fSpec.parID = fsRtParID;
  337.                 return CreateSharedOrLabPrefsFile(&fSpec, fsRtDirID, nwFolderAlias);
  338.                 break;
  339.             case kNewUserQuitItem:
  340.                 ExitToShell();
  341.         }
  342.     }
  343.     
  344.     return noErr;
  345. }
  346.  
  347.  
  348.  
  349. /*----------------------------------------------------------------------------
  350.     DoServerDialog 
  351.     
  352.     Present the server dialog.
  353.     
  354.     Exit:    function result = error code.
  355.             gPrefs.newsServerName = news server name.
  356.             gPrefs.mailServerName = mail server name.
  357. ----------------------------------------------------------------------------*/
  358.  
  359. static OSErr DoServerDialog (void)
  360. {
  361.     DialogPtr dlg = nil;
  362.     short item;
  363.     Str255 news;
  364.     Str255 mail;
  365.     OSErr err = noErr;
  366.         
  367.     err = MyGetNewDialog(kServerDlg, ok, cancel, &dlg);
  368.     if (err != noErr) return err;
  369.     CopyPascalString(news, gPrefs.newsServerName);
  370.     DlgSetPString(dlg, kNewsServer, news);
  371.     SetItemHostAddress(dlg, kNewsServer);
  372.     SetItemMaxLength(dlg, kNewsServer, 255);
  373.     CopyPascalString(mail, gPrefs.mailServerName);
  374.     DlgSetPString(dlg, kMailServer, mail);
  375.     SetItemHostAddress(dlg, kMailServer);
  376.     SetItemMaxLength(dlg, kMailServer, 255);
  377.     if (*news == 0) {
  378.         SelectDialogItemText(dlg, kNewsServer, 0, 0);
  379.     } else if (*mail == 0) {
  380.         SelectDialogItemText(dlg, kMailServer, 0, 0);
  381.     } else {
  382.         SelectDialogItemText(dlg, kNewsServer, 0, 0x7fff);
  383.     }
  384.     
  385.     do {
  386.         DlgEnableItem(dlg, ok, *news != 0 && *mail != 0);
  387.         MyMovableModalDialog(dlg, DialogFilter, &item);
  388.         switch (item) {
  389.             case kNewsServer:
  390.                 DlgGetPString(dlg, item, news);
  391.                 break;
  392.             case kMailServer:
  393.                 DlgGetPString(dlg, item, mail);
  394.                 break;
  395.         }
  396.     } while (item != ok && item != cancel);
  397.  
  398.     err = DoClose(dlg);
  399.     if (err != noErr) return err;
  400.     if (item == ok) {
  401.         CopyPascalString(gPrefs.newsServerName, news);
  402.         CopyPascalString(gPrefs.mailServerName, mail);
  403.         MyICWriteSharedPrefs(kICNNTPHost);
  404.         MyICWriteSharedPrefs(kICSMTPHost);
  405.     }
  406.     return item == ok ? noErr : userCanceledErr;
  407. }
  408.  
  409.  
  410.  
  411. /*----------------------------------------------------------------------------
  412.     DoPersonalDialog 
  413.     
  414.     Present the personal information dialog.
  415.     
  416.     Exit:    function result = error code.
  417.             gPrefs.fullName = user's full name.
  418.             gPrefs.organization = user's organization.
  419.             gPrefs.emailAddress = user's email address
  420. ----------------------------------------------------------------------------*/
  421.  
  422. static OSErr DoPersonalDialog (void)
  423. {
  424.     DialogPtr dlg = nil;
  425.     short item;
  426.     CStr255 fullName;
  427.     CStr255    organization;
  428.     CStr255 address;
  429.     OSErr err = noErr;
  430.  
  431.     err = MyGetNewDialog(kPersonalDlg, ok, cancel, &dlg);
  432.     if (err != noErr) return err;
  433.     strcpy(fullName, gPrefs.fullName);
  434.     DlgSetCString(dlg, kFullName, fullName);
  435.     SetItemMaxLength(dlg, kFullName, 255);
  436.     strcpy(organization, gPrefs.organization);
  437.     DlgSetCString(dlg, kOrganization, organization);
  438.     SetItemMaxLength(dlg, kOrganization, 255);
  439.     strcpy(address, gPrefs.emailAddress);
  440.     DlgSetCString(dlg, kAddress, address);
  441.     SetItemUSAsciiNoBlank(dlg, kAddress);
  442.     SetItemMaxLength(dlg, kAddress, 255);
  443.     if (*fullName == 0) {
  444.         SelectDialogItemText(dlg, kFullName, 0, 0);
  445.     } else if (*organization == 0) {
  446.         SelectDialogItemText(dlg, kOrganization, 0, 0);
  447.     } else if (*address == 0) {
  448.         SelectDialogItemText(dlg, kAddress, 0, 0);
  449.     } else {
  450.         SelectDialogItemText(dlg, kFullName, 0, 0x7fff);
  451.     }
  452.     
  453.     do {
  454.         DlgEnableItem(dlg, ok, *address != 0);
  455.         MyMovableModalDialog(dlg, DialogFilter, &item);
  456.         switch (item) {
  457.             case kFullName:
  458.                 DlgGetCString(dlg, item, fullName);
  459.                 break;
  460.             case kOrganization:
  461.                 DlgGetCString(dlg, item, organization);
  462.                 break;
  463.             case kAddress:
  464.                 DlgGetCString(dlg, item, address);
  465.                 break;
  466.         }
  467.     } while (item != ok && item != cancel);
  468.  
  469.     err = DoClose(dlg);
  470.     if (err != noErr) return err;
  471.     if (item == ok) {
  472.         strcpy(gPrefs.fullName, fullName);
  473.         strcpy(gPrefs.organization, organization);
  474.         strcpy(gPrefs.emailAddress, address);
  475.         MyICWriteSharedPrefs(kICRealName);
  476.         MyICWriteSharedPrefs(kICOrganization);
  477.         MyICWriteSharedPrefs(kICEmail);
  478.     }
  479.     return item == ok ? noErr : userCanceledErr;
  480. }
  481.  
  482.  
  483.  
  484. /*----------------------------------------------------------------------------
  485.     SearchFolderForPrefsFileOrAlias
  486.     
  487.     Search a folder for the preferences file or an alias to the prefs file.
  488.     
  489.     Entry:    fSpec = pointer to file spec with vRefNum and parID filled in
  490.                 for the folder to be searched.
  491.  
  492.     Exit:    function result = error code.
  493.                 = fnfErr if file not found.
  494.             *fSpec = file spec of located file in folder.
  495. ----------------------------------------------------------------------------*/
  496.  
  497. static OSErr SearchFolderForPrefsFileOrAlias (FSSpec *fSpec)
  498. {
  499.     short index = 1;
  500.     OSErr err = noErr;
  501.     Str255 oldName, reallyOldName;
  502.     FSSpec fSpec2;
  503.     FInfo fndrInfo;
  504.     
  505.     GetPString(kStrPrefsFileName, fSpec->name);
  506.     err = FSpGetFInfo(fSpec, &fndrInfo);
  507.     if (err == noErr && fndrInfo.fdCreator == kNewsWatcherSignature &&
  508.         fndrInfo.fdType == kPrefsFileType) return noErr;
  509.     err = SearchFolderByCreatorAndType(fSpec, kNewsWatcherSignature,
  510.         kPrefsFileType, &index);
  511.     if (err != noErr) return err;
  512.     GetPString(kStrOldPrefsFileName, oldName);
  513.     GetPString(kStrReallyOldPrefsFileName, reallyOldName);
  514.     if (EqualString(fSpec->name, oldName, false, true) ||
  515.         EqualString(fSpec->name, reallyOldName, false, true))
  516.     {
  517.         index++;
  518.         fSpec2 = *fSpec;
  519.         err = SearchFolderByCreatorAndType(&fSpec2, kNewsWatcherSignature,
  520.             kPrefsFileType, &index);
  521.         if (err == noErr) *fSpec = fSpec2;
  522.     }
  523.     return noErr;
  524. }
  525.  
  526.  
  527.  
  528. /*----------------------------------------------------------------------------
  529.     FindPrefsFileOrAlias
  530.     
  531.     Locate the preferences file or an alias to the prefs file.
  532.     
  533.     Entry:    firstEvent = pointer to initial Apple event.
  534.  
  535.     Exit:    function result = error code.
  536.                 = fnfErr if prefs file not found.
  537.             *fSpec = location of prefs file or prefs file alias.
  538. ----------------------------------------------------------------------------*/
  539.  
  540. static OSErr FindPrefsFileOrAlias (AppleEvent *firstEvent, FSSpec *fSpec)
  541. {
  542.     OSErr err = noErr;
  543.     DescType typeCode;
  544.     AEEventClass eventClass;
  545.     AEEventID eventID;
  546.     AEKeyword keywd;
  547.     Size actualSize;
  548.     AEDescList docList = {0, nil};
  549.     DescType returnedType;
  550.     long numItems, i;
  551.     FInfo fndrInfo;
  552.     FSSpec oldFile, prefsFolder;
  553.     CInfoPBRec pb;
  554.     
  555.     /* Check to see if NewsWatcher was opened with an ODOC or PDOC event.
  556.        If it was, scan the document list and find the first document which
  557.        is either a NewsWatcher prefs file or a saved user group list or
  558.        message file. If a prefs file is found, use that one. If a saved
  559.        document is found, check to see if a prefs file exists in the same
  560.        folder and use it if one is found. */
  561.        
  562.     err = AEGetAttributePtr(firstEvent, keyEventClassAttr, typeWildCard,
  563.         &typeCode, &eventClass, sizeof(eventClass), &actualSize);
  564.     if (err != noErr) goto exit;
  565.     if (actualSize == sizeof(eventClass) && eventClass == kCoreEventClass) {
  566.         err = AEGetAttributePtr(firstEvent, keyEventIDAttr, typeWildCard,
  567.             &typeCode, &eventID, sizeof(eventID), &actualSize);
  568.         if (err != noErr) goto exit;
  569.         if (actualSize == sizeof(eventID) && 
  570.             (eventID == kAEOpenDocuments || eventID == kAEPrintDocuments))
  571.         {
  572.             err = AEGetParamDesc(firstEvent, keyDirectObject, typeAEList, &docList);
  573.             if (err != noErr) goto exit;
  574.             err = AECountItems(&docList, &numItems);
  575.             if (err != noErr) goto exit;
  576.             for (i = 1; i <= numItems; i++) {
  577.                 err = AEGetNthPtr(&docList, i, typeFSS, &keywd, &returnedType,
  578.                     (Ptr)fSpec, sizeof(FSSpec), &actualSize);
  579.                 if (err != noErr) goto exit;
  580.                 err = FSpGetFInfo(fSpec, &fndrInfo);
  581.                 if (err != noErr) goto exit;
  582.                 if (fndrInfo.fdCreator != kNewsWatcherSignature) continue;
  583.                 if (fndrInfo.fdType == kPrefsFileType) goto exit;
  584.                 err = SearchFolderForPrefsFileOrAlias(fSpec);
  585.                 if (err != fnfErr) goto exit;
  586.             }
  587.             err = AEDisposeDesc(&docList);
  588.             if (err != noErr) goto exit;
  589.             docList.dataHandle = nil;
  590.         }
  591.     }
  592.     
  593.     /* Check to see if a prefs file exits in the Preferences folder. */
  594.  
  595.     err = FindFolder(kOnSystemDisk, kPreferencesFolderType,
  596.         kCreateFolder, &fSpec->vRefNum, &fSpec->parID);
  597.     if (err != noErr) return err;
  598.     err = SearchFolderForPrefsFileOrAlias(fSpec);
  599.     if (err == noErr) return noErr;
  600.     if (err != fnfErr) return err;
  601.     
  602.     /* Check to see if a prefs file exists in the System folder. If it does, 
  603.        move it to the Preferences folder. */
  604.        
  605.     err = FindFolder(kOnSystemDisk, kSystemFolderType,
  606.         kCreateFolder, &oldFile.vRefNum, &oldFile.parID);
  607.     if (err != noErr) return err;
  608.     err = SearchFolderForPrefsFileOrAlias(&oldFile);
  609.     if (err != noErr) return err;
  610.     pb.dirInfo.ioNamePtr = prefsFolder.name;
  611.     pb.dirInfo.ioVRefNum = fSpec->vRefNum;
  612.     pb.dirInfo.ioFDirIndex = -1;
  613.     pb.dirInfo.ioDrDirID = fSpec->parID;
  614.     err = PBGetCatInfo(&pb, false);
  615.     if (err != noErr) return err;
  616.     prefsFolder.vRefNum = pb.dirInfo.ioVRefNum;
  617.     prefsFolder.parID = pb.dirInfo.ioDrParID;
  618.     err = FSpCatMove(&oldFile, &prefsFolder);
  619.     if (err != noErr) return err;
  620.     CopyPascalString(fSpec->name, oldFile.name);
  621.     err = FSpGetFInfo(fSpec, &fndrInfo);
  622.     if (err != noErr) return err;
  623.     fndrInfo.fdFlags &= ~(1 << 8);    /* clear hasBeenInited to force Finder to
  624.                                          assign new icon location */
  625.     return FSpSetFInfo(fSpec, &fndrInfo);
  626.     
  627. exit:
  628.  
  629.     if (docList.dataHandle != nil) AEDisposeDesc(&docList);
  630.     return err;
  631. }
  632.  
  633.  
  634.  
  635. /*----------------------------------------------------------------------------
  636.     CheckDummyPrefsFile
  637.     
  638.     Check for a dummy prefs file.
  639.     
  640.     Entry:    index = index in STR# 128 resource of dummy prefs file name.
  641.  
  642.     Exit:    function result = error code.
  643.             gDummyPrefsFile = true if dummy prefs file found.
  644.             gDummyPrefsLabFile = true if dummy prefs lab file found.
  645. ----------------------------------------------------------------------------*/
  646.  
  647. static OSErr CheckDummyPrefsFile (short index)
  648. {
  649.     OSErr err = noErr;
  650.     FSSpec fSpec;
  651.     FInfo fndrInfo;
  652.     short refNum;
  653.     long count;
  654.     char firstThreeChars[3];
  655.  
  656.     err = FindFolder(kOnSystemDisk, kPreferencesFolderType,
  657.         kCreateFolder, &fSpec.vRefNum, &fSpec.parID);
  658.     if (err != noErr) return err;
  659.     GetPString(index, fSpec.name);
  660.     err = FSpGetFInfo(&fSpec, &fndrInfo);
  661.     if (err == fnfErr) return noErr;
  662.     if (err != noErr) return err;
  663.     gDummyPrefsFile = true;
  664.     err = FSpOpenDF(&fSpec, fsRdPerm, &refNum);
  665.     if (err != noErr) return err;
  666.     count = 3;
  667.     err = FSRead(refNum, &count, (Ptr)firstThreeChars);
  668.     if (err == noErr && count == 3 && MyStrNEqual(firstThreeChars, "lab", 3))
  669.         gDummyPrefsLabFile = true;
  670.     MyFSClose(refNum, nil);
  671.     return noErr;
  672. }
  673.  
  674.  
  675.  
  676. /*----------------------------------------------------------------------------
  677.     LocatePrefsFile
  678.     
  679.     Locate the preferences file.
  680.     
  681.     Entry:    firstEvent = pointer to initial Apple event.
  682.  
  683.     Exit:    function result = error code.
  684.                 = fnfErr if prefs file not found.
  685.             *fSpec = location of prefs file.
  686.             *prefsAlias = handle to alias record for located prefs file.
  687. ----------------------------------------------------------------------------*/
  688.  
  689. static OSErr LocatePrefsFile (AppleEvent *firstEvent, FSSpec *fSpec,
  690.     AliasHandle *prefsAlias)
  691. {
  692.     OSErr err = noErr;
  693.     Boolean targetIsFolder, wasAliased;
  694.     
  695.     /* Locate the prefs file or an alias to the prefs file */
  696.     
  697.     err = FindPrefsFileOrAlias(firstEvent, fSpec);
  698.     
  699.     /* Resolve prefs file alias. */
  700.     
  701.     if (err == noErr) {
  702.         err = ResolveAliasFile(fSpec, true, &targetIsFolder, &wasAliased);
  703.         if (err != noErr) return err;
  704.         return NewAlias(nil, fSpec, prefsAlias);
  705.     }
  706.     
  707.     /* If prefs file was not found, check to see if there is a dummy prefs
  708.        file in the Prefs folder which was created to force users of this Mac 
  709.        to use a personal prefs file. */
  710.        
  711.     if (err == fnfErr) {
  712.         err = CheckDummyPrefsFile(kStrPrefsFileName);
  713.         if (err != noErr) return err;
  714.         err = CheckDummyPrefsFile(kStrOldPrefsFileName);
  715.         if (err != noErr) return err;
  716.         err = CheckDummyPrefsFile(kStrReallyOldPrefsFileName);
  717.         if (err != noErr) return err;
  718.         return fnfErr;
  719.     }
  720.     
  721.     return err;
  722. }
  723.  
  724.  
  725.  
  726. /*----------------------------------------------------------------------------
  727.     ScramblePW
  728.     
  729.     Scramble (and unscramble) saved passwords. This is not really secure,
  730.     just something to foil people browsing using disk editors.
  731.     
  732.     Entry:    pw = the password.
  733.             len = length of password.
  734.             
  735.     Exit:    Each byte nibble-swapped and bit-flipped.
  736. ----------------------------------------------------------------------------*/
  737.  
  738. static void ScramblePW (char *pw, short len)
  739. {
  740.     char *p, *pEnd;
  741.     
  742.     pEnd = pw + len;
  743.     for (p = pw; p < pEnd; p++) *p = (((*p >> 4) & 0x0f) | ((*p & 0x0f) << 4)) ^ 0xff;
  744. }
  745.  
  746.  
  747.  
  748. /*----------------------------------------------------------------------------
  749.     ConstructSavedArtDefaultFolderAlias
  750.     
  751.     In version 2.0d9, we introduced the saved article default folder preference.
  752.     The default folder was saved on the prefs file as a volume name and dirID.
  753.     In version 2.0d41, we changed this to a saved alias resource.
  754.     
  755.     This function is called if the old prefs file version is >= 2.0d9 and < 2.0d41.
  756.     It constructs the new alias from the old volume name and dirID.
  757. ----------------------------------------------------------------------------*/
  758.  
  759. static void ConstructSavedArtDefaultFolderAlias (void)
  760. {
  761.     OSErr err = noErr;
  762.     CInfoPBRec pBlock;
  763.     FSSpec fSpec;
  764.  
  765.     if (gPrefs.savedArtDefaultFolderAlias != nil) {
  766.         MyDisposeHandle(gPrefs.savedArtDefaultFolderAlias);
  767.         gPrefs.savedArtDefaultFolderAlias = nil;
  768.     }
  769.     err = VolNameToVRefNum(gPrefs.DefunctSavedArtDefaultVolName, &fSpec.vRefNum);
  770.     if (err != noErr) return;
  771.     pBlock.dirInfo.ioVRefNum = fSpec.vRefNum;
  772.     pBlock.dirInfo.ioDrDirID = gPrefs.DefunctSavedArtDefaultDirID;
  773.     pBlock.dirInfo.ioNamePtr = fSpec.name;
  774.     pBlock.dirInfo.ioFDirIndex = -1;
  775.     err = PBGetCatInfoSync(&pBlock);
  776.     if (err != noErr) return;
  777.     fSpec.parID = pBlock.dirInfo.ioDrParID;
  778.     NewAlias(nil, &fSpec, &gPrefs.savedArtDefaultFolderAlias);
  779. }
  780.  
  781.  
  782.  
  783. /*----------------------------------------------------------------------------
  784.     ValidPString 
  785.     
  786.     Validate a saved pascal string preference.
  787.     
  788.     Entry:    str = pointer to pascal string.
  789.             size = size of pascal string.
  790.             returnIsLegal = true if return character is legal.
  791.     
  792.     Exit:    function result = true if string is valid.
  793.     
  794.     The string is considered to be "valid" if the length byte is less than
  795.     the allocated size of the string, and if all the characters in the
  796.     string are printable (or carriage returns if returnIsLegal is true).
  797. ----------------------------------------------------------------------------*/
  798.  
  799. static Boolean ValidPString (StringPtr str, short size, Boolean returnIsLegal)
  800. {
  801.     short len;
  802.     
  803.     len = *(unsigned char*)str;
  804.     if (len >= size) return false;
  805.     str++;
  806.     while (len--) {
  807.         if (!isPrintable(*str)) {
  808.             if (!returnIsLegal || *str != CR) return false;
  809.         }
  810.         str++;
  811.     }
  812.     return true;
  813. }
  814.  
  815.  
  816.  
  817. /*----------------------------------------------------------------------------
  818.     ValidCString 
  819.     
  820.     Validate a saved C string preference.
  821.     
  822.     Entry:    str = pointer to C string.
  823.             size = size of C string.
  824.             returnIsLegal = true if return character is legal.
  825.     
  826.     Exit:    function result = true if string is valid.
  827.     
  828.     The string is considered to be "valid" if it contains a C-format
  829.     zero byte terminator and all the characters are printable (or 
  830.     carriage returns if returnIsLegal is true).
  831. ----------------------------------------------------------------------------*/
  832.  
  833. static Boolean ValidCString (char *str, short size, Boolean returnIsLegal)
  834. {
  835.     unsigned char *p;
  836.  
  837.     p = (unsigned char*)str;
  838.     while (size--) {
  839.         if (*p == 0) {
  840.             p = (unsigned char*)str;
  841.             while (*p != 0) {
  842.                 if (!isPrintable(*p)) {
  843.                     if (!returnIsLegal || *p != CR) return false;
  844.                 }
  845.                 p++;
  846.             }
  847.             return true;
  848.         }
  849.         p++;
  850.     }
  851.     return false;
  852. }
  853.  
  854.  
  855.  
  856. /*----------------------------------------------------------------------------
  857.     PrefsAreValid 
  858.     
  859.     Validate saved preferences.
  860.     
  861.     Exit:    function result = true if prefs are valid.
  862.     
  863.     This function does some rudimentary sanity checking on the preferences.
  864. ----------------------------------------------------------------------------*/
  865.  
  866. static Boolean PrefsAreValid (void)
  867. {
  868.     return 
  869.         ValidPString(gPrefs.newsServerName, sizeof(gPrefs.newsServerName), false) &&
  870.         ValidPString(gPrefs.textFont, sizeof(gPrefs.textFont), false) &&
  871.         ValidPString(gPrefs.listFont, sizeof(gPrefs.listFont), false) &&
  872.         ValidCString(gPrefs.ftpNewsrcUsername, sizeof(gPrefs.ftpNewsrcUsername), false) &&
  873.         ValidCString(gPrefs.ftpNewsrcHost, sizeof(gPrefs.ftpNewsrcHost), false) &&
  874.         ValidCString(gPrefs.fullName, sizeof(gPrefs.fullName), false) &&
  875.         ValidCString(gPrefs.organization, sizeof(gPrefs.organization), false) &&
  876.         ValidCString(gPrefs.signature, sizeof(gPrefs.signature), true) &&
  877.         ValidPString(gPrefs.mailServerName, sizeof(gPrefs.mailServerName), false) &&
  878.         ValidCString(gPrefs.emailAddress, sizeof(gPrefs.emailAddress), false);
  879. }
  880.  
  881.  
  882.  
  883. /*----------------------------------------------------------------------------
  884.     Copy an alias 
  885.     
  886.     Entry:    a = handle to alias to be copied.
  887.             b = pointer to alias handle.
  888.     
  889.     Exit:    *b = handle to copy of alias a.
  890. ----------------------------------------------------------------------------*/
  891.  
  892. static void CopyAlias (AliasHandle a, AliasHandle *b)
  893. {
  894.     AliasHandle tmpAlias;
  895.     OSErr err = noErr;
  896.     
  897.     tmpAlias = a;
  898.     err = MyHandToHand(&tmpAlias);
  899.     if (err != noErr) return;
  900.     *b = tmpAlias;
  901. }
  902.  
  903.  
  904.  
  905. /*----------------------------------------------------------------------------
  906.     ReadPrefs 
  907.     
  908.     Read the preferences file.
  909.     
  910.     Entry:    firstEvent = pointer to initial Apple event.
  911.     
  912.     Exit:    function result = error code.
  913. ----------------------------------------------------------------------------*/
  914.  
  915. OSErr ReadPrefs (AppleEvent *firstEvent)
  916. {
  917.     OSErr err = noErr;
  918.     FSSpec fSpec;
  919.     short fRefNum = 0;
  920.     long count;
  921.     unsigned long prefsVersion, progVersion;
  922.     CStr255 msg, fmt;
  923.     short len;
  924.     Handle prefsHandle;
  925.     Boolean havePrefs = false, prefsInDataFork = false, prefsDamaged = false;
  926.     Boolean prefsFileLocated;
  927.     Boolean forceServerDialog = false, forcePersonalDialog = false;
  928.     Boolean newUser = false;
  929.     DialogPtr dlg = nil;
  930.     short item;
  931.     AliasHandle nwFolderAlias = nil;
  932.     
  933.     memset(&gPrefs, 0, sizeof(gPrefs));
  934.     
  935.     err = GetVersionNumber(&progVersion);
  936.     if (err != noErr) return err;
  937.         
  938.     err = LocatePrefsFile(firstEvent, &fSpec, &gPrefsAlias);
  939.     if (err != noErr && err != fnfErr) return err;
  940.     
  941.     prefsFileLocated = err == noErr;
  942.     
  943.     if (prefsFileLocated) {
  944.         
  945.         err = MyFSpOpenResFile(&fSpec, fsRdPerm, &fRefNum);
  946.         if (err == noErr) {
  947.             err = MyGet1Resource('PREF', 128, &prefsHandle);
  948.             if (err == noErr) {
  949.                 if (MyGetHandleSize(prefsHandle) == sizeof(TPrefRec)) {
  950.                     havePrefs = true;
  951.                     BlockMoveData(*prefsHandle, &gPrefs, sizeof(TPrefRec));
  952.                     gPrefs.savedMsgDefaultFolderAlias = nil;
  953.                     err = MyGet1Resource('alis', kSavedMsgDefaultFolderAliasID, 
  954.                         &gPrefs.savedMsgDefaultFolderAlias);
  955.                     if (err == noErr) MyDetachResource(gPrefs.savedMsgDefaultFolderAlias);
  956.                     gPrefs.savedArtDefaultFolderAlias = nil;
  957.                     err = MyGet1Resource('alis', kSavedArtDefaultFolderAliasID, 
  958.                         &gPrefs.savedArtDefaultFolderAlias);
  959.                     if (err == noErr) MyDetachResource(gPrefs.savedArtDefaultFolderAlias);
  960.                     gPrefs.savedBinDefaultFolderAlias = nil;
  961.                     err = MyGet1Resource('alis', ksavedBinDefaultFolderAliasID, 
  962.                         &gPrefs.savedBinDefaultFolderAlias);
  963.                     if (err == noErr) MyDetachResource(gPrefs.savedBinDefaultFolderAlias);
  964.                     gPrefs.savedUGLDefaultFolderAlias = nil;
  965.                     err = MyGet1Resource('alis', ksavedUGLDefaultFolderAliasID, 
  966.                         &gPrefs.savedUGLDefaultFolderAlias);
  967.                     if (err == noErr) MyDetachResource(gPrefs.savedUGLDefaultFolderAlias);
  968.                     ReadCache();
  969.                 } else {
  970.                     prefsDamaged = true;
  971.                 }
  972.                 ReadSavedPageSetupInfoFromPrefs();
  973.             }
  974.             MyCloseResFile(fRefNum);
  975.         } 
  976.         
  977.         if (!havePrefs && !prefsDamaged) {
  978.             err = FSpOpenDF(&fSpec, fsRdPerm, &fRefNum);
  979.             if (err == noErr) {
  980.                 count = sizeof(TPrefRec);
  981.                 err = FSRead(fRefNum, &count, (Ptr)&gPrefs);
  982.                 if (err == noErr && count == sizeof(TPrefRec)) {
  983.                     havePrefs = true;
  984.                     prefsInDataFork = true;
  985.                     gPrefs.savedMsgDefaultFolderAlias = nil;
  986.                     gPrefs.savedArtDefaultFolderAlias = nil;
  987.                     gPrefs.savedBinDefaultFolderAlias = nil;
  988.                     gPrefs.savedUGLDefaultFolderAlias = nil;
  989.                 } else {
  990.                     prefsDamaged = true;
  991.                 }
  992.                 MyFSClose(fRefNum, nil);
  993.             } else {
  994.                 prefsDamaged = true;
  995.             }
  996.         }
  997.  
  998.         if (prefsDamaged || !havePrefs || !PrefsAreValid()) {
  999.             havePrefs = prefsInDataFork = false;
  1000.             MyDisposeHandle(gPrefs.savedMsgDefaultFolderAlias);
  1001.             MyDisposeHandle(gPrefs.savedArtDefaultFolderAlias);
  1002.             MyDisposeHandle(gPrefs.savedBinDefaultFolderAlias);
  1003.             MyDisposeHandle(gPrefs.savedUGLDefaultFolderAlias);
  1004.             GetCString(kStrBadPrefs, fmt);
  1005.             p2cstr(fSpec.name);
  1006.             sprintf(msg, fmt, (char*)fSpec.name);
  1007.             c2pstr((char*)fSpec.name);
  1008.             ErrorMessage(msg);
  1009.         }
  1010.     }
  1011.     
  1012.     if (gPrefs.useInternetConfig) {
  1013.         if (prefsFileLocated) {
  1014.             MyICStart(true, fSpec.vRefNum, fSpec.parID);
  1015.         } else {
  1016.             MyICStart(false, 0, 0);
  1017.         }
  1018.     }
  1019.     
  1020.     if (havePrefs) gPrefsFileFoundAtStartup = true;
  1021.     
  1022.     if (!havePrefs) {
  1023.         newUser = true;
  1024.         err = DoNewUserDialog(&nwFolderAlias);
  1025.         if (err != noErr) {
  1026.             ReportSystemError(err);
  1027.             ExitToShell();
  1028.         }
  1029.         err = MyGet1Resource('PREF', 128, &prefsHandle);
  1030.         if (err == noErr && MyGetHandleSize(prefsHandle) == sizeof(TPrefRec)) {
  1031.             BlockMoveData(*prefsHandle, &gPrefs, sizeof(TPrefRec));
  1032.             havePrefs = true;
  1033.             gPrefs.savedMsgDefaultFolderAlias = nil;
  1034.             gPrefs.savedArtDefaultFolderAlias = nil;
  1035.             gPrefs.savedBinDefaultFolderAlias = nil;
  1036.             gPrefs.savedUGLDefaultFolderAlias = nil;
  1037.         }
  1038.         if (prefsHandle != nil) MyReleaseResource(prefsHandle);
  1039.     }
  1040.  
  1041.     if (!havePrefs) {
  1042.         prefsVersion = 0x00000000;
  1043.         memset(&gPrefs, 0, sizeof(gPrefs));
  1044.     } else if (strcmp(gPrefs.magicCookie, "MagicCookie") != 0) {
  1045.         prefsVersion = 0x01028000;
  1046.     } else {
  1047.         len = strlen(gPrefs.versionString);
  1048.         if (len == 0) {
  1049.             prefsVersion = gPrefs.version;
  1050.         } else if (strcmp(gPrefs.versionString, "1.2(NU)") == 0) {
  1051.             prefsVersion = 0x01208000;
  1052.         } else if (len == 5 && strncmp(gPrefs.versionString, "1.3d", 4) == 0) {
  1053.             prefsVersion = 0x01302000 + gPrefs.versionString[4] - '0';
  1054.         } else if (len == 5 && strncmp(gPrefs.versionString, "2.0d", 4) == 0) {
  1055.             prefsVersion = 0x02002000 + gPrefs.versionString[4] - '0';
  1056.         } else if (len == 6 && strncmp(gPrefs.versionString, "2.0d1", 5) == 0) {
  1057.             prefsVersion = 0x02002010 + gPrefs.versionString[5] - '0';
  1058.         } else {
  1059.             prefsVersion = 0x00000000;
  1060.         }
  1061.     }
  1062.     
  1063.     strcpy(gPrefs.magicCookie, "MagicCookie");
  1064.     *gPrefs.versionString = 0;
  1065.     if (progVersion > gPrefs.version) gPrefs.version = progVersion;
  1066.     
  1067.     ScramblePW(gPrefs.ftpNewsrcPassword, sizeof(gPrefs.ftpNewsrcPassword));
  1068.     ScramblePW(gPrefs.authPassword, sizeof(gPrefs.authPassword));
  1069.     
  1070.     if (prefsVersion < 0x01028000) {
  1071.         *gPrefs.newsServerName = 0;
  1072.         *gPrefs.mailServerName = 0;
  1073.         *gPrefs.ftpNewsrcUsername = 0;
  1074.         *gPrefs.ftpNewsrcHost = 0;
  1075.         *gPrefs.fullName = 0;
  1076.         *gPrefs.organization = 0;
  1077.         *gPrefs.signature = 0;
  1078.         *gPrefs.emailAddress = 0;
  1079.         CopyPascalString(gPrefs.listFont, "\pMonaco");
  1080.         CopyPascalString(gPrefs.textFont, "\pMonaco");
  1081.         gPrefs.listSize = 9;
  1082.         gPrefs.textSize = 9;
  1083.         SetPt(&gPrefs.statusWindowLocn, 0, 0);
  1084.         gPrefs.fullGroupListVisible = true;
  1085.         gPrefs.maxFetch = 400;
  1086.     }
  1087.     
  1088.     if (prefsVersion < 0x01208000) {
  1089.         gPrefs.areYouSureAlert = true;
  1090.     }
  1091.     
  1092.     if (prefsVersion < 0x01302001) {
  1093.         gPrefs.autoFetchNewsrc = false;
  1094.     }
  1095.     
  1096.     if (prefsVersion < 0x01302004) {
  1097.         gPrefs.showArtHeaders = false;
  1098.         gPrefs.showAuthors = true;
  1099.         gPrefs.showThreadsCollapsed = true;
  1100.     }
  1101.     
  1102.     if (prefsVersion < 0x02002009) {
  1103.         gPrefs.checkForNewGroups = true;
  1104.         gPrefs.groupCheckTime = 0;
  1105.         memset(gPrefs.ftpNewsrcPassword, 0, sizeof(gPrefs.ftpNewsrcPassword));
  1106.         gPrefs.saveFtpNewsrcPassword = false;
  1107.         gPrefs.savedArtCreator = 'ttxt';
  1108.         GetPString(kStrDefaultTextFileOwner, gPrefs.savedArtAppName);
  1109.         gPrefs.maxGroupNameWidth = 0;
  1110.         gPrefs.useXPAT = false;
  1111.     }
  1112.     
  1113.     if (prefsVersion < 0x02002010) {
  1114.         gPrefs.savedArtDefaultFolder = false;
  1115.         GetCString(kStrDefaultNewsrcFileName, gPrefs.ftpNewsrcPath);
  1116.     }
  1117.     
  1118.     if (prefsVersion < 0x02002011) {
  1119.         gPrefs.addSigSeparatorLine = true;
  1120.     }
  1121.     
  1122.     if (prefsVersion < 0x02002012) {
  1123.         gPrefs.keypadShortcuts = false;
  1124.         gPrefs.logActionsToFile = false;
  1125.     }
  1126.     
  1127.     if (prefsVersion < 0x02002014) {
  1128.         gPrefs.batchedGroupCmds = false;
  1129.         gPrefs.noNewConnection = false;
  1130.         gPrefs.noModeReader = false;
  1131.     }
  1132.     
  1133.     if (prefsVersion < 0x02002016) {
  1134.         gPrefs.reZoomWindows = false;
  1135.         gPrefs.autoSaveOnQuit = false;
  1136.     }
  1137.     
  1138.     if (prefsVersion < 0x02002018) {
  1139.         gPrefs.replyPost = true;
  1140.         gPrefs.replyEmail = false;
  1141.         gPrefs.copySelf = false;
  1142.         gPrefs.showMsgDetails = false;
  1143.         gPrefs.tabEnabled = true;
  1144.         gPrefs.tabStops = 3;
  1145.         strcpy(gPrefs.quoteString, "> ");
  1146.         *gPrefs.extraNewsHdrLines = 0;
  1147.         *gPrefs.extraMailHdrLines = 0;
  1148.     }
  1149.     
  1150.     if (prefsVersion < 0x02002019) {
  1151.         gPrefs.addSigBlankLine = true;
  1152.     }
  1153.     
  1154.     if (prefsVersion < 0x02002021) {
  1155.         SetPt(&gPrefs.prefsLoc, 0, 0);
  1156.         SetPt(&gPrefs.hostLoc, 0, 0);
  1157.         SetPt(&gPrefs.servErrLoc, 0, 0);
  1158.         SetPt(&gPrefs.searchLoc, 0, 0);
  1159.         SetPt(&gPrefs.delGroupsLoc, 0, 0);
  1160.     }
  1161.     
  1162.     if (prefsVersion < 0x02002024) {
  1163.         gPrefs.wrapOnSend = true;
  1164.     }
  1165.     
  1166.     if (prefsVersion < 0x02002026) {
  1167.         *gPrefs.authUsername = 0;
  1168.         *gPrefs.authPassword = 0;
  1169.         gPrefs.authSavePassword = false;
  1170.         gPrefs.authAtStartup = false;
  1171.         SetPt(&gPrefs.authLoc, 0, 0);
  1172.     }
  1173.     
  1174.     if (prefsVersion < 0x02002027) {
  1175.         gPrefs.authPrivateGroups = false;
  1176.     }
  1177.     
  1178.     if (prefsVersion < 0x02002041) {
  1179.         gPrefs.savedMsgDefaultFolder = false;
  1180.         gPrefs.savedMsgDelAfterSend = false;
  1181.         gPrefsFileWasOldVersion = true;
  1182.         if (prefsVersion >= 0x02002009) ConstructSavedArtDefaultFolderAlias();
  1183.         gPrefs.savedBinDefaultFolder = false;
  1184.         gPrefs.hqxHelper = kExpanderCreatorType;
  1185.         err = FindAppNameFromSig(kExpanderCreatorType, gPrefs.hqxHelperName);
  1186.         if (err != noErr) GetPString(kStrHqxDecodeHelperName, gPrefs.hqxHelperName);
  1187.     } else {
  1188.         if (*gPrefs.hqxHelperName > 31) *gPrefs.hqxHelperName = 0;
  1189.     }
  1190.     
  1191.     if (prefsVersion < 0x02002044) {
  1192.         gPrefs.uuHelper = kuuUndoCreatorType;
  1193.         err = FindAppNameFromSig(kuuUndoCreatorType, gPrefs.uuHelperName);
  1194.         if (err != noErr) GetPString(kStrUUDecodeHelperName, gPrefs.uuHelperName);
  1195.         gPrefs.keyboardShortcuts = false;
  1196.     } else {
  1197.         if (*gPrefs.uuHelperName > 31) *gPrefs.uuHelperName = 0;
  1198.     }
  1199.     
  1200.     if (prefsVersion < 0x02002048) {
  1201.         gPrefs.reuseArticleWinds = false;
  1202.     }
  1203.     
  1204.     if (prefsVersion < 0x02006004) {
  1205.         gPrefs.dontCoverFinderIcons = true;
  1206.         gPrefs.saveThreadsToSeparateFiles = false;
  1207.         gPrefs.appendIfFileAlreadyExists = false;
  1208.         gPrefs.saveEncodedText = false;
  1209.         gPrefs.subjectWindPosLocked = false;
  1210.         gPrefs.articleWindPosLocked = false;
  1211.         if (prefsVersion < 0x01208000) {
  1212.             gPrefs.fullGroupWindPos.valid = false;
  1213.         } else {
  1214.             gPrefs.fullGroupWindPos.valid = true;
  1215.             gPrefs.fullGroupWindPos.oldFormat = true;
  1216.             *(Point*)&gPrefs.fullGroupWindPos.userState = gPrefs.fullGroupWindowLocn;
  1217.         }
  1218.         if (prefsVersion < 0x02002048) {
  1219.             gPrefs.autoFetchWindPos.valid = false;
  1220.         } else {
  1221.             gPrefs.autoFetchWindPos.valid = true;
  1222.             gPrefs.autoFetchWindPos.oldFormat = true;
  1223.             *(Point*)&gPrefs.autoFetchWindPos.userState = gPrefs.autoFetchNewsrcLocn;
  1224.         }
  1225.     }
  1226.     
  1227.     if (prefsVersion < 0x02006012) {
  1228.         gPrefs.returnToSubjectWindow = true;
  1229.     }
  1230.     
  1231.     if (prefsVersion < 0x02006014) {
  1232.         gPrefs.beepAtEndOfGroup = true;
  1233.         SetPt(&gPrefs.findLoc, 0, 0);
  1234.     }
  1235.     
  1236.     if (prefsVersion < 0x02006015) {
  1237.         gPrefs.startFindAtBeginning = true;
  1238.         gPrefs.savedUGLDefaultFolder = false;
  1239.         SetPt(&gPrefs.waitForDNRLoc, 0, 0);
  1240.     }
  1241.     
  1242.     if (prefsVersion < 0x02006017) {
  1243.         if (prefsVersion >= 0x02002025) {
  1244.             gPrefs.ftpHelperInfo.sig = gPrefs.ftpHelper;
  1245.             gPrefs.ftpHelperInfo.versionNumber = 0;
  1246.             gPrefs.ftpHelperInfo.lastMod = 0;
  1247.         } else {
  1248.             FindURLHelper(kFtpURL);
  1249.         }
  1250.         FindURLHelper(kHttpURL);
  1251.         FindURLHelper(kGopherURL);
  1252.         FindURLHelper(kWaisURL);
  1253.         FindURLHelper(kTelnetURL);
  1254.         FindURLHelper(kTn3270URL);
  1255.         FindURLHelper(kFingerURL);
  1256.         FindURLHelper(kWhoisURL);
  1257.     }
  1258.     
  1259.     if (prefsVersion < 0x02006021){
  1260.         CopyPascalString(gPrefs.printingFont, gPrefs.textFont);
  1261.         gPrefs.printingSize = gPrefs.textSize;
  1262.     }
  1263.     
  1264.     if (prefsVersion < 0x02006022) {
  1265.         gPrefs.useInternetConfig = false;
  1266.     }
  1267.     
  1268.     if (nwFolderAlias == nil) {
  1269.         if (gPrefs.savedMsgDefaultFolderAlias == nil)
  1270.             MakeDefaultFolderAlias(&gPrefs.savedMsgDefaultFolderAlias);
  1271.         if (gPrefs.savedArtDefaultFolderAlias == nil)
  1272.             MakeDefaultFolderAlias(&gPrefs.savedArtDefaultFolderAlias);
  1273.         if (gPrefs.savedBinDefaultFolderAlias == nil)
  1274.             MakeDefaultFolderAlias(&gPrefs.savedBinDefaultFolderAlias);
  1275.         if (gPrefs.savedUGLDefaultFolderAlias == nil)
  1276.             MakeDefaultFolderAlias(&gPrefs.savedUGLDefaultFolderAlias);
  1277.     } else {
  1278.         gPrefs.savedUGLDefaultFolderAlias = nwFolderAlias;
  1279.         gPrefs.savedUGLDefaultFolder = true;
  1280.         CopyAlias(nwFolderAlias, &gPrefs.savedMsgDefaultFolderAlias);
  1281.         CopyAlias(nwFolderAlias, &gPrefs.savedArtDefaultFolderAlias);
  1282.         CopyAlias(nwFolderAlias, &gPrefs.savedBinDefaultFolderAlias);
  1283.     }
  1284.     
  1285.     if (prefsVersion < 0x02002026 && prefsVersion > 0) {
  1286.         err = MyGetNewDialog(kNew20UserAlert, ok, 0, &dlg);
  1287.         if (err != noErr) return err;
  1288.         SysBeep(0);
  1289.         MyModalDialog(dlg, gDialogFilterUPP, &item);
  1290.         err = DoClose(dlg);
  1291.         if (err != noErr) return err;
  1292.     }
  1293.     
  1294.     if (gPrefs.maxFetch > 15000) gPrefs.maxFetch = 15000;
  1295.     if (gPrefs.maxFetch <= 0) gPrefs.maxFetch = 1;
  1296.     
  1297.     if (newUser && nwFolderAlias == nil) {
  1298.         /* If this a new user who selected the "private" option, use Internet
  1299.            config to seed the new and mail server addresses and the personal
  1300.            information preferences. */
  1301.         if (prefsFileLocated) {
  1302.             MyICStart(true, fSpec.vRefNum, fSpec.parID);
  1303.         } else {
  1304.             MyICStart(false, 0, 0);
  1305.         }
  1306.         forceServerDialog = *gPrefs.newsServerName == 0 || *gPrefs.mailServerName == 0;
  1307.         if (*gPrefs.newsServerName == 0) MyICReadSharedPrefs(kICNNTPHost);
  1308.         if (*gPrefs.mailServerName == 0) MyICReadSharedPrefs(kICSMTPHost);
  1309.         forcePersonalDialog = *gPrefs.emailAddress == 0;
  1310.         if (*gPrefs.fullName == 0) MyICReadSharedPrefs(kICRealName);
  1311.         if (*gPrefs.organization == 0) MyICReadSharedPrefs(kICOrganization);
  1312.         if (*gPrefs.emailAddress == 0) MyICReadSharedPrefs(kICEmail);
  1313.         if (!gPrefs.useInternetConfig) MyICStop();
  1314.     }
  1315.     
  1316.     if (forceServerDialog ||
  1317.         *gPrefs.newsServerName == 0 || *gPrefs.mailServerName == 0) 
  1318.     {
  1319.         err = DoServerDialog();
  1320.         if (err != noErr) return err;
  1321.     }
  1322.     
  1323.     if (forcePersonalDialog || *gPrefs.emailAddress == 0) {
  1324.         err = DoPersonalDialog();
  1325.         if (err != noErr) return err;
  1326.     }
  1327.     
  1328.     CopyPascalString(gNewsServerAtStartup, gPrefs.newsServerName);
  1329.     
  1330.     if (havePrefs && gPrefsAlias != nil) {
  1331.         err = ReadGroupsFromPrefs(&fSpec, prefsInDataFork, prefsVersion);
  1332.         if (err != noErr) return err;
  1333.     }
  1334.     
  1335.     AdjustExtractBinariesCommand();
  1336.     
  1337.     return noErr;
  1338. }
  1339.  
  1340.  
  1341.  
  1342. /*----------------------------------------------------------------------------
  1343.     WriteGroups 
  1344.     
  1345.     Write the full group list to the preferences file.
  1346.     
  1347.     Entry:    fSpec = pointer to file spec for prefs file.
  1348.     
  1349.     Exit:    function result = error code.
  1350.     
  1351.     The group names are written as a plain text file, one group name
  1352.     per line, to the data fork of the prefs file.
  1353. ----------------------------------------------------------------------------*/
  1354.  
  1355. static OSErr WriteGroups (FSSpec *fSpec)
  1356. {
  1357.     OSErr err = noErr;
  1358.     Ptr groupBuf = nil;
  1359.     long groupBufNext;
  1360.     short i, len;
  1361.     char *groupName;
  1362.     short fRefNum = 0;
  1363.     Boolean empty;
  1364.     
  1365.     /* If the user changed news servers, save an empty full group list to force the
  1366.        program to read a new full group list the next time it is run. */
  1367.     
  1368.     if (!EqualString(gPrefs.newsServerName, gNewsServerAtStartup, false, true)) {
  1369.         gNumGroups = 0;
  1370.         gFullGroupListDirty = true;
  1371.     }
  1372.     
  1373.     /* Return if the full group list was not changed since the prefs file was
  1374.        read at startup. */
  1375.     
  1376.     if (!gFullGroupListDirty) return noErr;
  1377.     
  1378.     /* Allocate the group name buffer. */
  1379.     
  1380.     err = MyNewPtrCritical(10000, &groupBuf);
  1381.     if (err != noErr) goto exit;
  1382.     groupBufNext = 0;
  1383.     
  1384.     /* Open the file. */
  1385.  
  1386.     err = OpenDataForkWriteCreateIfMissing(fSpec, kNewsWatcherSignature, 
  1387.         kPrefsFileType, smSystemScript, false, &fRefNum, &empty);
  1388.     if (err != noErr) goto exit;
  1389.     err = SetEOF(fRefNum, 0);
  1390.     if (err != noErr) goto exit;
  1391.     
  1392.     /* Write the group names in order to the file. */
  1393.     
  1394.     for (i = 0; i < gNumGroups; i++) {
  1395.         if (groupBufNext + 256 >= 10000) {
  1396.             err = MyFSWriteNoCache(fRefNum, &groupBufNext, groupBuf, nil);
  1397.             if (err != noErr) goto exit;
  1398.             groupBufNext = 0;
  1399.         }
  1400.         groupName = *gGroupNames + (*gFullGroupArray)[i].nameOffset;
  1401.         len = strlen(groupName) + 1;
  1402.         BlockMoveData(groupName, groupBuf + groupBufNext, len);
  1403.         groupBufNext += len;
  1404.         *(groupBuf + groupBufNext - 1) = CR;
  1405.     }
  1406.     
  1407.     /* Flush the last buffer. */
  1408.     
  1409.     if (groupBufNext > 0) {
  1410.         err = MyFSWriteNoCache(fRefNum, &groupBufNext, groupBuf, nil);
  1411.         if (err != noErr) goto exit;
  1412.     }
  1413.     
  1414.     /* Close the file */
  1415.     
  1416.     MyFSClose(fRefNum, nil);
  1417.     MyDisposePtr(groupBuf);
  1418.     return noErr;
  1419.  
  1420. exit:
  1421.  
  1422.     if (fRefNum != 0) MyFSClose(fRefNum, nil);
  1423.     MyDisposePtr(groupBuf);
  1424.     return err;
  1425. }
  1426.  
  1427.  
  1428.  
  1429. /*----------------------------------------------------------------------------
  1430.     WritePrefs 
  1431.     
  1432.     Write the preferences file.
  1433.     
  1434.     Exit:    function result = error code.
  1435. ----------------------------------------------------------------------------*/
  1436.  
  1437. OSErr WritePrefs (void)
  1438. {
  1439.     OSErr err = noErr;
  1440.     FSSpec fSpec;
  1441.     Boolean wasChanged;
  1442.     short fRefNum = 0;
  1443.     Handle h, vers = nil;
  1444.     
  1445.     if (gPrefsAlias != nil) {
  1446.         err = ResolveAlias(nil, gPrefsAlias, &fSpec, &wasChanged);
  1447.         if (err != noErr && err != fnfErr) gPrefsAlias = nil;
  1448.     }
  1449.     
  1450.     if (gPrefsAlias == nil) {
  1451.         err = FindFolder(kOnSystemDisk, kPreferencesFolderType,
  1452.             kCreateFolder, &fSpec.vRefNum, &fSpec.parID);
  1453.         if (err != noErr) return err;
  1454.         GetPString(kStrPrefsFileName, fSpec.name);
  1455.         FSpDelete(&fSpec);
  1456.         gFullGroupListDirty = true;
  1457.     } else if (gPrefsFileWasOldVersion) {
  1458.         FSpDelete(&fSpec);
  1459.         GetPString(kStrPrefsFileName, fSpec.name);
  1460.         gFullGroupListDirty = true;
  1461.     }    
  1462.     
  1463.     if (gFullGroupWindow != nil)
  1464.         SaveWindPos(gFullGroupWindow, &gPrefs.fullGroupWindPos);
  1465.  
  1466.     if (!gPrefs.saveFtpNewsrcPassword)
  1467.         memset(gPrefs.ftpNewsrcPassword, 0, sizeof(gPrefs.ftpNewsrcPassword));
  1468.     ScramblePW(gPrefs.ftpNewsrcPassword, sizeof(gPrefs.ftpNewsrcPassword));
  1469.  
  1470.     if (!gPrefs.authSavePassword)
  1471.         memset(gPrefs.authPassword, 0, sizeof(gPrefs.authPassword));
  1472.     ScramblePW(gPrefs.authPassword, sizeof(gPrefs.authPassword));
  1473.     
  1474.     MyGet1Resource('vers', 1, &vers);
  1475.     if (vers != nil) MyDetachResource(vers);
  1476.     
  1477.     err = OpenResFileWriteCreateIfMissing(&fSpec, kNewsWatcherSignature, 
  1478.         kPrefsFileType, smSystemScript, &fRefNum);
  1479.     if (err != noErr) goto exit;
  1480.     
  1481.     err = MyPtrToHand(&gPrefs, &h, sizeof(TPrefRec));
  1482.     if (err != noErr) goto exit;
  1483.     err = MyReplaceResource(h, 'PREF', 128, "\p");
  1484.     if (err != noErr) goto exit;
  1485.     
  1486.     if (vers != nil) MyReplaceResource(vers, 'vers', 1, "\p");
  1487.     
  1488.     err = WriteProgramNameResource(kStrNewsWatcher);
  1489.     if (err != noErr) goto exit;
  1490.     
  1491.     if (gPrefs.savedMsgDefaultFolderAlias != nil) {
  1492.         err = MyReplaceResource(gPrefs.savedMsgDefaultFolderAlias, 'alis', 
  1493.             kSavedMsgDefaultFolderAliasID, "\p");
  1494.         if (err != noErr) goto exit;
  1495.     }
  1496.     
  1497.     if (gPrefs.savedArtDefaultFolderAlias != nil) {
  1498.         err = MyReplaceResource(gPrefs.savedArtDefaultFolderAlias, 'alis', 
  1499.             kSavedArtDefaultFolderAliasID, "\p");
  1500.         if (err != noErr) goto exit;
  1501.     }
  1502.     
  1503.     if (gPrefs.savedBinDefaultFolderAlias != nil) {
  1504.         err = MyReplaceResource(gPrefs.savedBinDefaultFolderAlias, 'alis', 
  1505.             ksavedBinDefaultFolderAliasID, "\p");
  1506.         if (err != noErr) goto exit;
  1507.     }
  1508.     
  1509.     if (gPrefs.savedUGLDefaultFolderAlias != nil) {
  1510.         err = MyReplaceResource(gPrefs.savedUGLDefaultFolderAlias, 'alis', 
  1511.             ksavedUGLDefaultFolderAliasID, "\p");
  1512.         if (err != noErr) goto exit;
  1513.     }
  1514.     
  1515.     err = WriteCache(gNewsServerAtStartup);
  1516.     if (err != noErr) goto exit;
  1517.     
  1518.     WritePageSetupInfoToPrefs();
  1519.     
  1520.     MyCloseResFile(fRefNum);
  1521.     
  1522.     err = WriteGroups(&fSpec);
  1523.     if (err != noErr) goto exit;
  1524.     
  1525.     return noErr;
  1526.     
  1527. exit:
  1528.  
  1529.     if (fRefNum != 0) MyCloseResFile(fRefNum);
  1530.     return err;
  1531. }
  1532.